Year with How many counted, How many counted by Hour and Total Hours
p1<-bird_counts %>%
ggplot(.,aes(year,how_many_counted,color=how_many_counted_by_hour,
label=species))+
geom_point()+labs(color="Counted by Hour")+
xlab("Year")+ylab("How Many Counted")+
ggtitle("How many Counted vs Year")
plotly::ggplotly(p1)
p2<-bird_counts %>%
ggplot(.,aes(year,total_hours,color=how_many_counted_by_hour,
label=species))+
geom_point()+labs(color="Counted by Hour")+
xlab("Year")+ylab("Total Hours")+
ggtitle("Total Hours vs Year")
plotly::ggplotly(p2)